home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 June / 1989-06.d64 / match mania (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  7KB  |  246 lines
  1. 10 rem copyright 1989 compute! publications, inc. - all rights reserved
  2. 20 print chr$(15) chr$(8)
  3. 30 dim ln$(6),d$(16),in$(2),p(2,4)
  4. 40 skip=0:wn$="":win$=""
  5. 50 bl$="                                       "
  6. 60 poke 53280,0:poke 53281,0:print"[147]"tab(13)"[158]match mania"
  7. 70 printtab(12)"[154]copyright 1989"
  8. 80 printtab(6)"compute! publications, inc."
  9. 90 printtab(10)"all rights reserved"
  10. 100 l=7:gosub1920:print tab(2)"[152]number of players? (1-2):  [157]";:vq=1:gosub1930
  11. 110 pn=val(x$)
  12. 120 if pn<1 or pn>2 then100
  13. 130 l=9:gosub1920:print tab(2)"name of player 1: ";:vq=7:gosub1930
  14. 140 p1$=x$
  15. 150 l=11:gosub1920
  16. 160 if pn=2 then print tab(2) "name of player 2: ";:gosub1930:p2$=x$
  17. 170 l=13:gosub1920:print tab(2) "characters per line? (1-16):   [157][157]";:vq=2
  18. 180 gosub1930
  19. 190 if val(x$)<1 or val(x$)>16 then170
  20. 200 lm=val(x$)
  21. 210 l=15:gosub1920:print tab(2) "lines per box? (1-6):  [157]";:vq=1:gosub1930
  22. 220 if val(x$)<1 or val(x$)>6 then210
  23. 230 ln=val(x$)
  24. 240 if pn=1 then360
  25. 250 l=17:gosub1920:print tab(2) "winner by time or %correct? (t/c):  [157]";
  26. 260 vq=1:gosub1930
  27. 270 if x$<>"t" and x$<>"c" then250
  28. 280 wn$=x$
  29. 290 if wn$="c" then360
  30. 300 l=19:gosub1920:print tab(2) "option: add 45 secs to a player's"
  31. 310 print tab(10) "time for each wrong guess?"
  32. 320 print tab(8) "(helps prevent random guessing)"
  33. 330 l=23:gosub1920:print tab(2) "include this option? (y/n):  [157]";
  34. 340 vq=1:gosub1930
  35. 350 op$=x$:if op$<>"y" and op$<>"n" then330
  36. 360 pl$=p1$:pl=1
  37. 370 read m2
  38. 380 for m1=1 to m2
  39. 390 poke 53280,0:poke 53281,0:print"[147]"
  40. 400 s1$="
  41. 410 s2$[178]"sgn+"
  42. 420 s3$[178]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)"
  43. 430 s4$[178]"(NULL)andandandandandandandandandandandandandandandandsqr"
  44. 440 l1$[178]s3$:l2$[178]s2$:l3$[178]s2$:l4$[178]s2$:l5$[178]s2$:l6$[178]s2$:l7$[178]s2$:l8$[178]s4$
  45. 450 r1$[178]s1$[170]s3$:r2$[178]s1$[170]s2$:r3$[178]s1$[170]s2$:r4$[178]s1$[170]s2$:r5$[178]s1$[170]s2$:r6$[178]s1$[170]s2$
  46. 460 r7$[178]s1$[170]s2$:r8$[178]s1$[170]s4$
  47. 470 lb$[178]l1$[170][199](13)[170]l2$[170][199](13)[170]l3$[170][199](13)[170]l4$[170][199](13)[170]l5$[170][199](13)
  48. 480 lb$[178]lb$[170]l6$[170][199](13)[170]l7$[170][199](13)[170]l8$
  49. 490 rb$[178]r1$[170][199](13)[170]r2$[170][199](13)[170]r3$[170][199](13)[170]r4$[170][199](13)[170]r5$[170][199](13)
  50. 500 rb$[178]rb$[170]r6$[170][199](13)
  51. 510 rc$[178]r7$[170][199](13)[170]r8$
  52. 520 [153] "cont":[141]610
  53. 530 [153] "print#":[141]620
  54. 540 [153] "cont":[141]630
  55. 550 [153] "print#":[141]640
  56. 560 [153] "cont":[141]650
  57. 570 [153] "print#":[141]660
  58. 580 [153] "cont":[141]670
  59. 590 [153] "print#":[141]680
  60. 600 [137]690
  61. 610 l[178]3:[141]1920:[153] lb$:[142]
  62. 620 l[178]11:[141]1920:[153] [163]8) "(1)":[142]
  63. 630 l[178]3:[141]1920:[153] rb$ rc$:[142]
  64. 640 l[178]11:[141]1920:[153] [163]28) "(2)":[142]
  65. 650 l[178]14:[141]1920:[153] lb$:[142]
  66. 660 l[178]22:[141]1920:[153] [163]8) "(3)":[142]
  67. 670 l[178]14:[141]1920:[153] rb$ rc$:[142]
  68. 680 l[178]22:[141]1920:[153] [163]28) "(4)":[142]
  69. 690 [153] "print#"pl$", get set..."
  70. 700 [139] skip[178]0 [167] [135] dt$
  71. 710 [129] i[178]1 [164] [195](dt$)
  72. 720 d$(i)[178][202](dt$,i,1)
  73. 730 [130] i
  74. 740 [129] i[178]1 [164] 6
  75. 750 ln$(i)[178]""
  76. 760 [130] i
  77. 770 [129] i[178]1 [164] ln
  78. 780 [129] j[178]1 [164] lm
  79. 790 r1[178][181]([187](0)[172][195](dt$))[170]1
  80. 800 ln$(i)[178]ln$(i)[170]d$(r1)
  81. 810 [130] j
  82. 820 [130] i
  83. 830 r1[178][181]([187](0)[172][195](dt$))[170]1
  84. 840 r2[178][181]([187](0)[172][195](dt$))[170]1
  85. 850 [139] r2[178]r1 [167]840
  86. 860 r3[178][181]([187](0)[172]ln)[170]1
  87. 870 rs[178][181]([187](0)[172]lm)[170]1
  88. 880 flag[178]0
  89. 890 [129] j[178]rs [164] lm
  90. 900 [139] [202](ln$(r3),j,1)[179][177]d$(r1) [167]970
  91. 910 lr$(1)[178][202](ln$(r3),1,j[171]1)[170]d$(r2)[170][202](ln$(r3),j[170]1)
  92. 920 in$(1)[178]"open"[170][202](ln$(r3),1,j[171]1)[170]""[170]d$(r2)[170]"open"[170][202](ln$(r3),j[170]1)
  93. 930 in$(2)[178]"open"[170][202](ln$(r3),1,j[171]1)[170]""[170][202](ln$(r3),j,1)[170]"open"[170][202](ln$(r3),j[170]1)
  94. 940 flag[178]1
  95. 950 cn[178]j
  96. 960 j[178]lm
  97. 970 [130] j
  98. 980 [139] flag[178]0 [167]830
  99. 990 r4[178][181]([187](0)[172]4)[170]1
  100. 1000 [129] i[178]1 [164] ln
  101. 1010 b$(i)[178]ln$(i)
  102. 1020 [130] i
  103. 1030 [141]1220
  104. 1040 [139] r4[178]1 [167] b$(r3)[178]lr$(1)
  105. 1050 [141]1160
  106. 1060 [141]1230
  107. 1070 [139] r4[178]2 [167] b$(r3)[178]lr$(1)
  108. 1080 [141]1160
  109. 1090 [141]1240
  110. 1100 [139] r4[178]3 [167] b$(r3)[178]lr$(1)
  111. 1110 [141]1160
  112. 1120 [141]1250
  113. 1130 [139] r4[178]4 [167] b$(r3)[178]lr$(1)
  114. 1140 [141]1160
  115. 1150 [137]1260
  116. 1160 [129] i[178]1 [164] ln
  117. 1170 st$[178]st$[170]""
  118. 1180 [153] "open" st$ b$(i)
  119. 1190 [130] i
  120. 1200 b$(r3)[178]ln$(r3)
  121. 1210 [142]
  122. 1220 st$[178]"":[142]
  123. 1230 st$[178]"":[142]
  124. 1240 st$[178]"":[142]
  125. 1250 st$[178]"":[142]
  126. 1260 gs[178]0
  127. 1270 l[178]1:[141]1920:[153] bl$
  128. 1280 [153]"print#"pl$", which pattern is different?"
  129. 1290 [151] 53280,0:[151] 53281,0
  130. 1300 ti$[178]"000000"
  131. 1310 l[178]24:[141]1920:[153] bl$
  132. 1320 l[178]24:[141]1920:[153] "print# select the numberclose(1-4):  cmdprint#";:vq[178]1
  133. 1330 [141]2440
  134. 1340 g[178][197](x$)
  135. 1350 [139] g[177]0 [175] g[179][178]4 [167]1390
  136. 1360 [139] x$[179][177]"0" [167]1310
  137. 1370 [139] pl[178]1 [167]2070
  138. 1380 l[178]23:[141]1920:[153] [163]6)"can't end game between turns!":[137]1310
  139. 1390 gs[178]gs[170]1
  140. 1400 l[178]23:[141]1920:[153] bl$
  141. 1410 l[178]24:[141]1920:[153] bl$
  142. 1420 l[178]24:[141]1920
  143. 1430 [139] g[179][177]r4 [167] [153] " sorry,"g"is incorrect.  try again: print#";:[137]1330
  144. 1440 [139] g[178]r4 [167] tm[178][197](ti$)
  145. 1450 [139] g[178]r4 [167] [153] " correct!  line"r3"char"cn"is different."
  146. 1460 b$(r3)[178]in$(1)
  147. 1470 [139] r4[178]1 [167] [141]1220:[141]1600:[137]1510
  148. 1480 [139] r4[178]2 [167] [141]1230:[141]1600:[137]1510
  149. 1490 [139] r4[178]3 [167] [141]1240:[141]1600:[137]1510
  150. 1500 [139] r4[178]4 [167] [141]1250:[141]1600
  151. 1510 b$(r3)[178]in$(2)
  152. 1520 [139] r4[178]1 [167] [141]1230:[141]1600:[141]1240:[141]1600
  153. 1530 [139] r4[178]1 [167] [141]1250:[141]1600:[137]1650
  154. 1540 [139] r4[178]2 [167] [141]1220:[141]1600:[141]1240:[141]1600
  155. 1550 [139] r4[178]2 [167] [141]1250:[141]1600:[137]1650
  156. 1560 [139] r4[178]3 [167] [141]1220:[141]1600:[141]1230:[141]1600
  157. 1570 [139] r4[178]3 [167] [141]1250:[141]1600:[137]1650
  158. 1580 [139] r4[178]4 [167] [141]1220:[141]1600:[141]1230:[141]1600
  159. 1590 [139] r4[178]4 [167] [141]1240:[141]1600:[137]1650
  160. 1600 [129] i[178]1 [164] r3
  161. 1610 st$[178]st$[170]""
  162. 1620 [130] i
  163. 1630 [153] "open" st$ b$(r3)
  164. 1640 [142]
  165. 1650 [139] r4[179][177]1 [167]1670
  166. 1660 [129] i[178]1 [164] 9:[153] "open";:[141]610:[141]1740:[153] "";:[141]610:[130] i
  167. 1670 [139] r4[179][177]2 [167]1690
  168. 1680 [129] i[178]1 [164] 9:[153] "open";:[141]630:[141]1740:[153] "";:[141]630:[130] i
  169. 1690 [139] r4[179][177]3 [167]1710
  170. 1700 [129] i[178]1 [164] 9:[153] "open";:[141]650:[141]1740:[153] "";:[141]650:[130] i
  171. 1710 [139] r4[179][177]4 [167]1750
  172. 1720 [129] i[178]1 [164] 9:[153] "open";:[141]670:[141]1740:[153] "";:[141]670:[130] i
  173. 1730 [137]1750
  174. 1740 [129] j[178]1 [164] 10:[130] j:[142]
  175. 1750 l[178]1:[141]1920:[153] bl$
  176. 1760 [139] gs[178]1 [167] [153] " 1 guess... excellent!"
  177. 1770 [139] gs[177]1 [167] [153] ""gs" cmdguesses."
  178. 1780 [139] op$[178]"y" [175] gs[177]1 [167] [153] ""[163]23)"verify*"
  179. 1790 [139] op$[178]"y" [167] tm[178]tm[170]45[172](gs[171]1)
  180. 1800 [153] ""[163]24)"time:"tm"sec"
  181. 1810 p(pl,1)[178]p(pl,1)[170]tm
  182. 1820 p(pl,2)[178]p(pl,2)[170]1
  183. 1830 p(pl,3)[178]p(pl,3)[170]gs
  184. 1840 [129] i[178]1 [164] 2000:[130] i
  185. 1850 [139] pn[178]2 [175] pl[178]1 [167] pl[178]2:pl$[178]p2$:skip[178]1:m1[178]m1[171]1:[137]1870
  186. 1860 [139] pl[178]2 [167] pl[178]1:pl$[178]p1$:skip[178]0
  187. 1870 [130] m1
  188. 1880 [140]
  189. 1890 [137]370
  190. 1900 [131] 11
  191. 1910 [131] "(NULL)(NULL)","<-","atn(NULL)","(NULL)(NULL)(NULL)sqr","coslog","right$(NULL)","(NULL)spc(","sin(NULL)",">=","ae","(NULL)(NULL)"
  192. 1920 [153] [200]("",l);:[142]
  193. 1930 x$[178]"":xx$[178]"
  194. 1940 getx$
  195. 1950 ifx$<>chr$(13)thenprint"[164]";chr$(157);" ";chr$(157);
  196. 1960 ifx$=""then1940
  197. 1970 ifx$=chr$(13)andxx$="" then1940
  198. 1980 ifx$=chr$(13)thenx$=xx$:printchr$(13);:return
  199. 1990 if(asc(x$)=20)and(len(xx$)=0)thengosub2050:goto1940
  200. 2000 ifasc(x$)=20thenxx$=left$(xx$,len(xx$)-1):printx$;" ";x$;:got